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2OESESCS 


I DIGITAL CORPORATION, MAYNARD, MASSACHUSETTS. 

0 ALL RIGHTS RESERVED. 
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TRANSFERRED. 
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; FACILITY: 
SDA 
ABSTRACT: 


This module contains code which verifies the consistency of 
certain VMS internal structues. 


ENVIRONMENT: 


VAS user mode. 
; AUTHOR: Jake VanNoy, CREATION DATE: 21-Jan-1983 
; MODIFIED BY: 
v03-000 JLV0226 Jake VanNoy 21-JAN-1983 


Initial coding. 


~SBTTL DECLARATIONS 
INCLUDE FILES: 
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: MACROS: 
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‘ a Py 
HO00 3 EQUATED SYMBOLS: 
y4'4" s 
ty NEWFL = 
UU s 
D000 HEADFL = 
006 HEADBL_= 12 
2006 LOCAL STORAGE = 16 
+ 
D000 4; 
000 i ; OWN STORAGE: 
UU Py 
UUU 
00000190 ¢ V1 78 VALIDATE_MAX:  .LONG 400 
UU 
0004 0 
' 04 ~SBTTL VAL_SET_MAX = Set maximum number of Links to traverse 
UU 
Bae aS 
p 3 5 ; FUNCTIONAL DESCRIPTION: 
1 . 
0004 $ : Tparse action routine which sets value of VALIDATE_MAX. 
D004 8 ; see Note that the VALIDATE_QUEUE code does not use this S. 
0004 9; **t as input. It has not been proven that there are ‘‘infinite 
4 oy 3 *** queues which the algorithm does not detect. 
UU e 
49 38 ; eate  meneede 
UU 2 
0006 4 
4444 32 3 INPUT penene ease 
UU 4 
006 «Oe ; 
2004 4 3 SPLICTY [PUTS 
000 3 
004 100 ; 
2004 t OUTPUT PARAMETERS 
UU 4 
006 108 ; 
444 ! : 3 ERPLECTT QUTPUTS: 
UU © 
0004 106 ; 
D006 ! 3 consti CODES: 
UU ° 
D004 1 : 
0006 110 ; SIDE EFFECTS: 
D004 111; NONE 
N004 112; 
D006 «=: 115 jee 
0004 114 


vB 
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1 
0000 1 -Entry VAL_SET_MAX, 0 
FS AF IC A D 1 MOVL TPASL_NUMBER(AP) ,VALIDATE_MAX ; set max 
wR Sain ee ate 
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; FUNCTIONAL DESCRIPTION: 


AX/VMS Macro V04-00 Page ad) 


The algorithm ysed to validate a doubly Linked Lis 


starts by copy 
into a known 
forward Link checking that the 
the Last forward Link was. 


CALLING SEQUENCE: 
CALLS from tparse. 


INPUT PARAMETERS: 


ueue 
ng the head (or starting point spe idea) 
ocation. It then preseods following the 
ackward Link points to where 


TPASL_NUMBER(AP) = address to start search from 


IMPLICIT INPUTS: 


OPTIONS = can specify SELF RELATIVE QUEUE 
*** code not writeen for this as yet. 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 

no such memory, or success 
SIDE EFFECTS: 

NONE 


~Entry VALIDATE_QUEUE, “M<R2,R3,R4,R5,R6, 


MOVL TPASL_ NUMBER (AP) ,RO ; 


MOVL RO, ADORESS : $ 
MOVL VALIDATE_MAX,R1 ; 
SUBL2 Slocel storage, SP 3 
MOVL  SP,R ; 
CLRL sR ; 
MOVL _RO,R3 ; 
TRYMEM (RO), HEADFL(R2) #8 F 
MOVL HEADFL(R2),R4 : 


: Loop through flinks 


R7> 


Address to start at 
et ‘current’ 


Max number of Links *** not used 
allocate storage, tren stack 


; Allocate or stac 


Counter 


; init last pointer 


try memory at head of queue 
next address 
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>c 
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<-t 


20$: 
TRYMEM (R4),NEWFL(R2),48 3; try memor 
37 5 E9 BLBC _mem scr : irrer 
08 A2 ° et CMPL peut LCR ),headfl(R2) ; Same as Listhead? 
1 BEQL 1 3 Done with flinks 
g bo INCL Rg ; Increment counter 
04 A2 dD CMPL R aWEWBL (Re) 3 back Link ok? 
; 1 BNEQ bad_blink : branch if not 
7 D MOVL R4, ; save last pointer 
4 62 OD MOVL weer Lcne) .Re 3 move to next element 
DA 1 BRB 208 3; Loop 
3 Search completed successfully, do final validation 
OC A2 04 A2 100$: (MPL  $NEWBL(R2),HEADBL(R2) ; Same as lListhead? 
F BNEQ 3; Done with list 


i) 

1 N n 

OC A2 | eee CMPL RS AEADBL (R2) 3; does this check out? 
2.1 BNEQ bad_blink 


: Queue is ok, check for empty queue 
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110$: fTSTL R6 
BNEQ queue ok 
<The qyeue is empty> ; 
0046 31 RW VAL_Q_EXIT 
mem_err: 
54 DD PUSHL R4 
SIGNAL 1,NOTINPHYS 3; Not in physical memory error 
04 RET 
bad_blink: 
53 DD PUSHL R3 
PRINT 1,- 
<Error sgnpor ting backward Link to previous structure address (!XL)> 
56 DD PUSHL R6 
54 OD PUSHL R4 
PRINT 2,- 
<Error occured in queue element at address !XL, after tracing !UL element!%S> 
OF 11 brb val_q_exit 
0B queue_ok: 
56 DD 00B PUSHL R6 ; Count 
? PRINT 1, <Queue is complete, total of !UL element!%S in the queue> 
C val_q exit: 
50 01 4 C MOVL #1,R0 
4 : RET 
C END 3 VALIDATE 
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tOEAT STORAGE = o0000010 
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Remsen OSE SOSUUEOB wo 
MSGS_NOTINPHYS ‘teeeree x 1 
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reeeeree x s 
QUEUE _OK aes 14 R 1 
TPASL_ NUMBER = Q000001C 
T eereeeee ot 
a 0000000 1 
VALIDATE QUEUE 44 OF RG 01 
VAL_Q_ EX 000000C6 R 01 
VAL_SET_MAX 00000004 RG 01 
donee nee eco ecee + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
- BLANK . OOOOOCA ( 202.) O1¢ #1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
0000000 < g-? 02 ¢ ¢°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
LITERALS 000000F ( 245.) 03 ¢ 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
(prneiNinennNene 
! Performance indicators : 
Phase Page faults CPU Time Elapsed Time 


Initialization * 00:00: 8. 
Command processing i 0:00: 
5 


5 

00 
Pass 1 0:00: . 

Symbol table sort 0:00: 
Pass 2 3: :00. 0: 
Symbol table output :00:00. : 
Psect synopsis output if :00. : 
36 702.84 0 


Cross-reference output 
Assembler run totals 


The working esi Limit was 1050 pages. 
13151 bytes (26 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 182 non-local ye local symbols. 
source Lines were read in Pass 1, producing 21 object records in Pass 2. 
pages of virtual memory were used to define 12 macros. 


es 
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! Macro Library statistics ! 


tee e nner ew erm ese eee ere oreo wey 


Macro library name 


Macros defined 


acepuA +08 oes ep aL 18 m8: 1 3 

agepUA star 

SSSDUA BG bets + lath MLB; 2 4 
+82558 (all libraries) 9 


275 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
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SDA.SRCIVALIDATE.MAR; 1 


MACRO/LIS=L1IS$:VALIDATE/OBJ=OBJ$: VALIDATE MSRC$:VALIDATE/UPDATE=(ENH$: VALIDATE) +EXECML$/L1B+LIB$:SDALIB/LIB 
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